HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/BUS/マック手帳Pro2.4F.sit/マック手帳Pro2.4F/マック手帳Pro folder F/マック手帳Pro（FAT）/TIMETABLE/stack.txt

Text File | 1996-03-13 | 20KB | 615 lines

-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=64, y1=69, x2=576, y2=411)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2742
-- card count: 1
-- first card id: 2977
-- list block id: 2261
-- print block id: 0
-- font table block id: 3561
-- style table block id: 3323
-- free block count: 0
-- free size: 0 bytes
-- total size: 18880 bytes
-- stack block size: 15360 bytes
-- created by hypercard version: 0x02308000
-- compacted by hypercard version: 0x02308000
-- modified by hypercard version: 0x02308000
-- opened by hypercard version: 0x02308000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDD725B14
----- HyperTalk script -----
on openCard
  Send colorMe to this card
  pass openCard
end openCard

on closeCard
  lock screen
  pass closeCard
end closeCard

on colorMe
  AddColor colorCard,stamp,0
end colorMe

on openStack
  AddColor install
  nike
  pass openStack
end openStack

on closeStack
  AddColor remove
  kukuri
  pass closeStack
end closeStack

on nike
  set userLevel to 5
  if there is a menu "ﾃε溪王ﾅｸ" then delete menu "ﾃε溪王ﾅｸ"
  if there is a menu "ﾃｯ窶愿ｨW" then delete menu "ﾃｯ窶愿ｨW"
  if there is a menu "竏ｫïｬ≫ˆž" then delete menu "竏ｫïｬ≫ˆž"
  if there is a menu "ﾎｩﾂｿ竕､ﾅｸ" then delete menu "ﾎｩﾂｿ竕､ﾅｸ"
  if there is a menu "ﾃδｴ窶ｺﾆ’" then delete menu "ﾃδｴ窶ｺﾆ’"
  if there is a menu "ﾂｵﾃƒïｬﾂｺïｬ≫┐竏照’" then delete menu "ﾂｵﾃƒïｬﾂｺïｬ≫┐竏照’"
  if there is a menu "ﾂｬ竏槐ｸ" then delete menu "ﾂｬ竏槐ｸ"
  createFileMenu
  createEditMenu
  createFunctionMenu
  createMoveMenu
  createAddMenu
end nike

on kukuri
  reset menuBar
end kukuri

on createFileMenu
  if there is a menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" then exit createFileMenu
  create menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"
  put createFileMenuItems() into menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" with menuMsg createFileMenuMsgs()
  disable menuItem 5 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"
  disable menuItem 6 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"
  disable menuItem 8 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"
  disable menuItem 9 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"
end createFileMenu

function createFileMenuItems
RETURN "ﾃｪVﾃ｣K" & RETURN & "ﾃ､Jﾃ‡竕 " & RETURN & "ﾃｯﾂｬﾃ‡竏づ‡ﾃˆ" & RETURN & "-" & RETURN & "ﾃｳpﾃｩﾃ愿ｪ窶ｺﾃｭﾃ‹" & RETURN & "ﾃ ﾃ崚ｧﾂｸ" & RETURN & "-" & RETURN & "ﾃ映ﾃ…[ﾃ運ﾃｩﾃ甘‡ﾃ凝ｧﾃｻﾃ‡窶ｺ" & RETURN & "ﾃ映ﾃ…[ﾃ運ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺ" & RETURN & "ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†" & RETURN & "-" & RETURN & "ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ叡ﾃ益" & RETURN & "-" & RETURN & "ﾃ駅ﾃ嘉｣ﾃ益" & RETURN & "-" & RETURN & "ﾃｨIﾃｳﾏ\" & RETURN
end createFileMenuItems

function createFileMenuMsgs
RETURN "nStack" & RETURN & "oStack" & RETURN & "cStack" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "verUp" & RETURN & "" & RETURN & "oHelp" & RETURN & "" & RETURN & "endPim"
end createFileMenuMsgs

on createEditMenu
  if there is a menu "ﾃｯ窶愿①ﾃｨW" then exit createEditMenu
  create menu "ﾃｯ窶愿①ﾃｨW"
  put createEditMenuItems() into menu "ﾃｯ窶愿①ﾃｨW" with menuMsg createEditMenuMsgs()
  disable menuItem 11 of menu "ﾃｯ窶愿①ﾃｨW"
end createEditMenu

function createEditMenuItems
RETURN "ﾃｩﾃ甘‡ﾃ凝ｨﾂ｡ﾃ‡ﾂｵ" & RETURN & "-" & RETURN & "ﾃ雨ﾃ叡ﾃ曳" & RETURN & "ﾃ嘘ﾃ鋭ﾃ…[" & RETURN & "ﾃ謁ﾃ…[ﾃ厩ﾃ曳" & RETURN & "ﾃｨﾂ｡ﾃ｣ﾃｩ" & RETURN & "-" & RETURN & "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄" & RETURN & "ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ" & RETURN & "-" & RETURN & "ﾃ映ﾃ…[ﾃ運ﾃｧﾃ湘ｪﾂｨ" & RETURN & "-" & RETURN & "ﾃ｣ﾃ崚‡ﾂｴﾃｳeﾃｳﾂ ﾃｧﾃ古ｨﾃｺ" & RETURN
end createEditMenuItems

function createEditMenuMsgs
RETURN "cancel" & RETURN & "" & RETURN & "cut" & RETURN & "copy" & RETURN & "paste" & RETURN & "delete" & RETURN & "" & RETURN & "nCard" & RETURN & "dCard" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "dSpace"
end createEditMenuMsgs

on createFunctionMenu
  if there is a menu "ﾃ｣@ﾃ①ﾃｮ¥" then exit createFunctionMenu
  create menu "ﾃ｣@ﾃ①ﾃｮ¥"
  put createFunctionMenuItems() into menu "ﾃ｣@ﾃ①ﾃｮ¥" with menuMsg createFunctionMenuMsgs()
  disable menuItem 1 of menu "ﾃ｣@ﾃ①ﾃｮ¥"
  disable menuItem 2 of menu "ﾃ｣@ﾃ①ﾃｮ¥"
  disable menuItem 4 of menu "ﾃ｣@ﾃ①ﾃｮ¥"
  disable menuItem 6 of menu "ﾃ｣@ﾃ①ﾃｮ¥"
end createFunctionMenu

function createFunctionMenuItems
RETURN "ﾃ･ﾃｼﾃｧﾄｱ" & RETURN & "ﾃ噂ﾃ…[ﾃ曳" & RETURN & "-" & RETURN & "ﾃ嘉､ﾃ厩ﾃ曳" & RETURN & "-" & RETURN & "ﾃ雲ﾃ韻ﾃ陰ﾃ嘉｣" & RETURN & "-" & RETURN & "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" & RETURN
end createFunctionMenuItems

function createFunctionMenuMsgs
RETURN "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "msg"
end createFunctionMenuMsgs

on createMoveMenu
  if there is a menu "ﾃ 竅„ﾃ①ﾃｬﾃ†" then exit createMoveMenu
  create menu "ﾃ 竅„ﾃ①ﾃｬﾃ†"
  put createMoveMenuItems() into menu "ﾃ 竅„ﾃ①ﾃｬﾃ†" with menuMsg createMoveMenuMsgs()
  disable menuItem 7 of menu "ﾃ 竅„ﾃ①ﾃｬﾃ†"
end createMoveMenu

function createMoveMenuItems
RETURN "ﾃ･vﾃｩZﾃ｣@" & RETURN & "-" & RETURN & "ﾃｩﾃｻﾃ･vﾃ⑥ﾃ雨ﾃ嘉･ﾃ嘉ｬﾃ雲ﾃ…[" & RETURN & "-" & RETURN & "ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｳ¥ﾃｱﾃ’" & RETURN & "-" & RETURN & "ﾃ韻ﾃ嘉ｬﾃ映ﾃ叡ﾃ丑ﾃ厩" & RETURN & "-" & RETURN & "ﾃ越ﾃ…[ﾃ嘉„" & RETURN
end createMoveMenuItems

function createMoveMenuMsgs
RETURN "calculator" & RETURN & "" & RETURN & "clock" & RETURN & "" & RETURN & "mail" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "oHome"
end createMoveMenuMsgs

on createAddMenu
  if there is a menu "ﾃ､gﾃ①ﾃｭﾂ｣" then exit createAddMenu
  create menu "ﾃ､gﾃ①ﾃｭﾂ｣"
  put createAddMenuItems() into menu "ﾃ､gﾃ①ﾃｭﾂ｣" with menuMsg createAddMenuMsgs()
end createAddMenu

function createAddMenuItems
RETURN "ﾃ､gﾃｭﾂ｣ﾃ噂ﾃ液ﾃ曳ﾃ嘉…ﾃ泳ﾃ嘉姪…[" & RETURN
end createAddMenuItems

function createAddMenuMsgs
RETURN "menu"
end createAddMenuMsgs

on nStack
  get line 1 to 3 of InputDialog ("ﾃｪVﾃ｣Kﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ湘ｪﾂｨﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ","ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺﾃ‡ﾃε影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ…[ﾃ曳ﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡竏妥‡ﾃ暗ｨﾃ催ｧﾃ｡ﾃ‡ﾃ陛…uﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺﾃ…vﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③", "ﾃｧﾃ湘ｪﾂｨ,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣,,ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ","ADDRESS,BUSINESS,FREE,SCHEDULE")
  put it into form1
  get line 1 of form1
  put it into temp1
  get line 2 of form1
  put it into kakunin1
  get line 3 of form1
  put it into name1
  if kakunin1 is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then
    exit nStack
  end if
  if kakunin1 is "ﾃｧﾃ湘ｪﾂｨ" then
    if temp1 is "ADDRESS" then
      put name1 & ".ADD" into a
      save stack "ADDRESS" as  stack a
      go to stack a
      exit nStack
    end if
    if temp1 is "BUSINESS" then
      put it & ".BUS" into b
      save stack "BUSINESS" as  stack b
      go to stack b
      exit nStack
    end if
    if temp1 is "FREE" then
      put it & ".FRE" into f
      save stack "FREE" as  stack f
      go to stack f
      exit nStack
    end if
    if temp1 is "SCHEDULE" then
      put it & ".SCH" into s
      save stack "SCHEDULE" as  stack s
      go to stack s
      exit nStack
    end if
    exit nStack
  end if
  if kakunin1 is "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ" then
    get line 1 to 3 of InputDialog ("ﾃｪVﾃ｣Kﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ湘ｪﾂｨﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ","","ﾃｧﾃ湘ｪﾂｨ,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","MEMO,TIMETABLE")
    put it into form2
    get line 1 of form2
    put it into temp2
    get line 2 of form2
    put it into kakunin2
    get line 3 of form2
    put it into name2
    if kakunin2 is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then
      exit nStack
    end if
    if kakunin2 is "ﾃｧﾃ湘ｪﾂｨ" then
      if temp2 is "MEMO" then
        put it & ".MEM" into m
        save stack "MEMO" as  stack m
        go to stack m
        exit nStack
      end if
      if temp2 is "TIMETABLE" then
        put it & ".TIM" into t
        save stack "TIMETABLE" as  stack t
        go to stack t
        exit nStack
      end if
      exit nStack
    end if
    exit nStack
  end if
end nStack

on oStack
  answer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾆ津‡窶｡ﾃｧ¥ﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"
  if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" then
    exit oStack
  end if
  if it is "ﾃ‡ﾃ陛‡ﾂ｢" then
    answer file "ﾃ､Jﾃ‡竕 ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" of type STAK
    if it is empty then
      exit oStack
    end if
    go to stack it
  end if
end oStack

on cStack
  domenu "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾃˆ"
end cStack

on moveData
  get line 1 to 4 of InputDialog ("ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","ﾃ 竅„ﾃｬﾃ†ﾃ･竕･ﾃ厩ﾃ運ﾃ叡ﾃ丑,ﾃ 竅„ﾃｬﾃ†ﾃｪﾃ甘厩ﾃ運ﾃ叡ﾃ丑","ﾃ 竅„ﾃｬﾃ†ﾃ･竕･ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ,ﾃ 竅„ﾃｬﾃ†ﾃｪﾃ甘厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ","ﾃ､Jﾃｩn,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","ADDRESS,BUSINESS")
  put it into aa
  get line 1 of aa
  put it into bb
  get line 2 of aa
  put it into cc
  get line 3 of aa
  put it into dd
  get line 4 of aa
  put it into ee
  if cc is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then
    exit moveData
  end if
  if cc is "ﾃ､Jﾃｩn" then
    if bb is "ADDRESS" then
      answer "ﾃ烏ﾃ丑ﾃ厩ﾃ益ﾃ嘉･ﾃ厩ﾃｨZﾃｨﾃ､ﾃｲ^ﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬ4.0ﾃ ﾂｻﾃｧ~ﾃ‡ﾃε映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃ 竅„ﾃｬﾃ†ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"
      if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" then
        exit moveData
      end if
      if it is "ﾃ‡ﾃ陛‡ﾂ｢" then
        put "ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†ﾃｨﾃ„ﾃｮﾄｱﾃｭﾃœ"
        lock screen
        go to stack ee
        if ee is empty then
          tyudan
          exit moveData
        end if
        go to cd 2
        domenu "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄"
        go to stack dd
        if dd is empty then
          tyudan
          exit moveData
        end if
        domenu "ﾃｫOﾃ‡ﾃε雨ﾃ…[ﾃ栄"
        put number of this cd into endCards
        repeat with i = 2 to endCards
          go to cd i
          select text of bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"
          put the selectedText into a
          select text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"
          put the selectedText into b
          select text of bg fld "ﾃｪﾂｴﾃｯﾂ 2"
          put the selectedText into c
          select text of bg fld "ﾃｮNﾃｳïｬ‚2"
          put the selectedText into d
          select text of bg fld "ﾃ･ﾃ･ﾃ｢tﾃ･^2"
          put the selectedText into e
          select text of bg fld "ﾃ､ﾂｱﾃｩx2"
          put the selectedText into f
          select text of bg fld "ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬ2"
          put the selectedText into g
          select text of bg fld "ﾃｩgﾃｳpﾃ｣@ﾃｩﾃŒ2"
          put the selectedText into h
          select text of bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"
          put the selectedText into i
          select text of bg fld "IDﾃｮ窶佚ｧﾃœ2"
          put the selectedText into j
          select text of bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"
          put the selectedText into k
          select text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"
          put the selectedText into l
          select text of bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"
          put the selectedText into m
          select text of bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"
          put the selectedText into n
          select text of bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"
          put the selectedText into o
          select text of bg fld "ﾃｨZﾃｨﾃ､2"
          put the selectedText into p
          select text of bg fld "ﾃｬdﾃｲb2"
          put the selectedText into q
          select text of bg fld "FAX2"
          put the selectedText into r
          select text of bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ4"
          put the selectedText into s
          select text of bg fld "ﾃｨZﾃｨﾃ､4"
          put the selectedText into t
          select text of bg fld "ﾃｬdﾃｲb4"
          put the selectedText into u
          select text of bg fld "ﾃ榎ﾃ臼ﾃ悦ﾃ嘉｣2"
          put the selectedText into v
          select text of bg fld "ﾃ･gﾃｫ窶”2"
          put the selectedText into w
          select text of bg fld "FAX4"
          put the selectedText into x
          go to stack ee
          add 1 to i
          go to cd i
          put a into bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"
          put b into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"
          put c into bg fld "ﾃｪﾂｴﾃｯﾂ 2"
          put d into bg fld "ﾃｮNﾃｳïｬ‚2"
          put e into bg fld "ﾃ･ﾃ･ﾃ｢tﾃ･^2"
          put f into bg fld "ﾃ､ﾂｱﾃｩx2"
          put g into bg fld "ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬ2"
          put h into bg fld "ﾃｩgﾃｳpﾃ｣@ﾃｩﾃŒ2"
          put i into bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"
          put j into bg fld "IDﾃｮ窶佚ｧﾃœ2"
          put k into bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"
          put l into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"
          put m into bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"
          put n into bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"
          put o into bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"
          put p into bg fld "ﾃｨZﾃｨﾃ､2"
          put q into bg fld "ﾃｬdﾃｲb2"
          put r into bg fld "FAX2"
          put s into bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ4"
          put t into bg fld "ﾃｨZﾃｨﾃ､4"
          put u into bg fld "ﾃｬdﾃｲb4"
          put v into bg fld "ﾃ榎ﾃ臼ﾃ悦ﾃ嘉｣2"
          put w into bg fld "ﾃ･gﾃｫ窶”2"
          put x into bg fld "FAX4"
          put "ﾃｫﾂｸﾃｧﾂｰ" & i & "ﾃｱﾃ｡ﾃ‡窶ｹﾃ‡竕暗ｨIﾃｳﾏ\ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"
          subtract 1 from i
          go to stack dd
        end repeat
        owari
        exit moveData
      end if
      exit moveData
    end if
    if bb is "BUSINESS" then
      answer "ﾃ烏ﾃ丑ﾃ厩ﾃ益ﾃ嘉･ﾃ厩ﾃｱﾂｺﾃｩhﾃ､ﾂｫﾃｳﾃｹﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬ2.0ﾃ ﾂｻﾃｧ~ﾃ‡ﾃε映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃ 竅„ﾃｬﾃ†ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"
      if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" then
        exit moveData
      end if
      if it is "ﾃ‡ﾃ陛‡ﾂ｢" then
        put "ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†ﾃｨﾃ„ﾃｮﾄｱﾃｭﾃœ"
        lock screen
        go to stack ee
        if ee is empty then
          tyudan
          exit moveData
        end if
        go to cd 2
        domenu "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄"
        go to stack dd
        if dd is empty then
          tyudan
          exit moveData
        end if
        domenu "ﾃｫOﾃ‡ﾃε雨ﾃ…[ﾃ栄"
        put number of this cd into endCards
        repeat with i = 2 to endCards
          go to cd i
          select text of bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"
          put the selectedText into a
          select text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"
          put the selectedText into b
          select text of bg fld "ﾃｪﾂｴﾃｯﾂ 2"
          put the selectedText into c
          select text of bg fld "ﾃｮNﾃｳïｬ‚2"
          put the selectedText into d
          select text of bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"
          put the selectedText into i
          select text of bg fld "IDﾃｮ窶佚ｧﾃœ2"
          put the selectedText into j
          select text of bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"
          put the selectedText into k
          select text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"
          put the selectedText into l
          select text of bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"
          put the selectedText into m
          select text of bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"
          put the selectedText into n
          select text of bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"
          put the selectedText into o
          select text of bg fld "ﾃｨZﾃｨﾃ､2"
          put the selectedText into p
          select text of bg fld "ﾃｬdﾃｲb2"
          put the selectedText into q
          select text of bg fld "ﾃｬdﾃｲb4"
          put the selectedText into r
          select text of bg fld "FAX2"
          put the selectedText into s
          select text of bg fld "FAX4"
          put the selectedText into t
          select text of bg fld "ﾃｬﾋ凖ｩﾃｻ2"
          put the selectedText into u
          select text of bg fld "ﾃｨﾃ催ｨﾃ､2"
          put the selectedText into v
          select text of bg fld "ﾃｮﾄｱﾃｧl"
          put the selectedText into w
          go to stack ee
          add 1 to i
          go to cd i
          put a into bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"
          put b into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"
          put c into bg fld "ﾃｪﾂｴﾃｯﾂ 2"
          put d into bg fld "ﾃｮNﾃｳïｬ‚2"
          put i into bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"
          put j into bg fld "IDﾃｮ窶佚ｧﾃœ2"
          put k into bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"
          put l into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"
          put m into bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"
          put n into bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"
          put o into bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"
          put p into bg fld "ﾃｨZﾃｨﾃ､2"
          put q into bg fld "ﾃｬdﾃｲb2"
          put r into bg fld "ﾃｬdﾃｲb4"
          put s into bg fld "FAX2"
          put t into bg fld "FAX4"
          put u into bg fld "ﾃｬﾋ凖ｩﾃｻ2"
          put v into bg fld "ﾃｨﾃ催ｨﾃ､2"
          put w into bg fld "ﾃｮﾄｱﾃｧl"
          put "ﾃｫﾂｸﾃｧﾂｰ" & i & "ﾃｱﾃ｡ﾃ‡窶ｹﾃ‡竕暗ｨIﾃｳﾏ\ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"
          subtract 1 from i
          go to stack dd
        end repeat
        owari
        exit moveData
      end if
      exit moveData
    end if
    exit moveData
  end if
end moveData

on owari
  go to stack "ﾃ厭ﾃ叡ﾃ丑ﾃｩﾃ凝ｭ窶 Pro"
  go to cd "ﾃ曳ﾃ叡ﾃ益"
  unlock screen
  answer "ﾃ､ﾃ†ﾃｳﾏ\ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"
end owari

on tyudan
  go to stack "ﾃ厭ﾃ叡ﾃ丑ﾃｩﾃ凝ｭ窶 Pro"
  go to cd "ﾃ曳ﾃ叡ﾃ益"
  unlock screen
  answer "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃｮ竕 ﾃｪ竏づ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"
end tyudan

on verUp
  get line 1 to 2 of InputDialog ("ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ叡ﾃ益ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","","","ﾃ､Jﾃｩn,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","TYPE P-B,TYPE P-F,TYPE P-S,OPTION TC")
  put it into a
  get line 1 of a
  put it into b
  get line 2 of a
  put it into c
  if c is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then
    exit verUp
  end if
  if c is "ﾃ､Jﾃｩn" then
    answer file "ﾃ英ﾃ叡ﾃ荏ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾃ陛‡ﾂｫﾃ‡ﾂｱﾃ‡竕暗‡竏妥‡ﾂｩﾃ③" of type STAK
    if it is empty then
      exit verUp
    end if
    put it into patch
    put "ﾃｨﾃ„ﾃｮﾄｱﾃｭﾃœ"
    wait 3 secs
    put "ﾃｧXﾃｪVﾃｭﾃœ"
    lock screen
    go to stack patch
    bigin
    exit verUp
  end if
end verUp

on oHelp
  go to stack "ﾃ駅ﾃ嘉｣ﾃ益" in a new window
end oHelp

on endPim
  domenu "HyperCardﾃｨIﾃｳﾏ\"
end endPim

on cancelIt
  domenu "ﾃｩﾃ甘‡ﾃ凝ｨﾂ｡ﾃ‡ﾂｵ"
end cancelIt

on cutIt
  domenu "ﾃ雨ﾃ叡ﾃ曳"
end cutIt

on copyIt
  domenu "ﾃ嘘ﾃ鋭ﾃ…["
end copyIt

on pasteIt
  domenu "ﾃ謁ﾃ…[ﾃ厩ﾃ曳"
end pasteIt

on deleteIt
  domenu "ﾃｨﾂ｡ﾃ｣ﾃｩ"
end deleteIt

on nCard
  domenu "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄"
end nCard

on dCard
  domenu "ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ"
end dCard

on dSpace
  domenu "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｪﾃ†ﾃｳﾃｹ"
end dSpace

on msg
  show msg box
end msg

on calculator
  go to stack "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" in a new window
end calculator

on clock
  go to stack "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" in a new window
  go to cd 2
end clock

on mail
  go to stack "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" in a new window
  go to cd 3
end mail

on oHome
  go to stack home
end oHome

on menu
  answer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾆ津‡窶｡ﾃｧ¥ﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"
  if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" then
    exit menu
  end if
  if it is "ﾃ‡ﾃ陛‡ﾂ｢" then
    go to stack "ﾃ厭ﾃ叡ﾃ丑ﾃｩﾃ凝ｭ窶 Pro"
    go to cd "ﾃ､gﾃｭﾂ｣"
    exit menu
  end if
end menu